home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / 第１特集Plug-in / Illustrator / Updated Acrobat & Find (Sﾉ.sit / Updated Acrobat & Find (Select) / Acrobat PDF File Format.rsrc / TEXT_16001.txt < prev    next >
Text File  |  1994-11-17  |  1KB  |  41 lines
  1. 2 "beginimage"    
  2. gsave
  3. /hascolor /statusdict where {pop
  4. statusdict /processcolors known
  5. {statusdict /processcolors get exec 1 gt}
  6. {false} ifelse} {false} ifelse def
  7. 40 dict begin
  8. /_image systemdict /image get def
  9. /_setgray systemdict /setgray get def
  10. /_currentgray systemdict /currentgray get def
  11. /_settransfer systemdict /settransfer get def
  12. /_currenttransfer systemdict /currenttransfer get def
  13. /blank 0 _currenttransfer exec
  14. 1 _currenttransfer exec eq def
  15. /negative blank
  16. {0 _currenttransfer exec 0.5 lt}
  17. {0 _currenttransfer exec 1 _currenttransfer exec gt}
  18. ifelse def
  19. /inverted? negative def
  20. /level2 systemdict /languagelevel known
  21. {languagelevel 2 ge} {false} ifelse def
  22. /foureq {4 index eq 8 1 roll
  23. 4 index eq 8 1 roll
  24. 4 index eq 8 1 roll
  25. 4 index eq 8 1 roll
  26. pop pop pop pop and and and} def
  27. hascolor {/band 0 def} {/band 5 def} ifelse
  28. /setcmykcolor where {pop
  29. 1 0 0 0 setcmykcolor _currentgray 1 exch sub
  30. 0 1 0 0 setcmykcolor _currentgray 1 exch sub
  31. 0 0 1 0 setcmykcolor _currentgray 1 exch sub
  32. 0 0 0 1 setcmykcolor _currentgray 1 exch sub
  33. 4 {4 copy} repeat
  34. 1 0 0 0 foureq {/band 1 store} if
  35. 0 1 0 0 foureq {/band 2 store} if
  36. 0 0 1 0 foureq {/band 3 store} if
  37. 0 0 0 1 foureq {/band 4 store} if
  38. 0 0 0 0 foureq {/band 6 store} if} if
  39. blank {/band 6 store} if
  40. gsave
  41.